home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / m100prnt.arc / FORMAT.100 < prev    next >
Encoding:
Text File  |  1986-06-28  |  2.4 KB  |  64 lines
  1. 1' FORMAT.100 Rev.2 copyright 1983 by Alan Stein. No commercial use without permission.
  2. 2' Permission given for use and non-profit duplication by SIG-100 members.
  3. 100 CLEAR1024:DEFINT L,P,I:GOSUB2000
  4. 110 IFF=1THENCLS
  5. 150 BS$=chr$(136):RT$=CHR$(13):UL$=CHR$(95):ES$=CHR$(27):LI=0:FL=0:F1=0
  6. 200 IFNM$<>""THENGOSUB20000
  7. 300 PA=1:IFTI$=""THEN500
  8. 400 TY$="     "+TI$:GOSUB5000:GOSUB5000
  9. 500 US=LS:F2=F1:F1=0 
  10. 600 CH$=INPUT$(1,1):IFEOF(1)THEN1600
  11. 700 IF(CH$=" "ANDLEN(TY$)>=US)THEN 1000
  12. 750 IF CH$=RT$THEN F1=1:GOTO 1000
  13. 800 IFCH$=UL$THENGOSUB4000:GOTO600
  14. 900 TY$=TY$+CH$:GOTO600
  15. 1000 GOSUB5000
  16. 1200 IFLI<PSGOTO500
  17. 1250 PRINT@220,"PLEASE CHANGE PAPER":PRINT@263,"press 'c' to":PRINT@302,"resume printing";
  18. 1300 BEEP:FORI=1TO4000:NEXT
  19. 1400 IFINKEY$<>CHR$(99)THEN1300
  20. 1500 PA=PA+1:LI=0:CLS:TY$=HE$+"    page "+STR$(PA):GOSUB5000:GOSUB5000
  21. 1550 GOTO500
  22. 1600 GOSUB5000:GOSUB5000
  23. 1700 IFTI$<>""THENTY$=" The End.":GOSUB5000
  24. 1800 IFFTHEN1800ELSEEND
  25. 2000 CLS:FILES
  26. 2100 INPUT"   Which file do you wish";TE$
  27. 2200 OPENTE$FORINPUTAS1
  28. 2250 PRINT"Do you want to preview ";TE$;:INPUTQ$:IFQ$="y"THENF=1ELSEF=0
  29. 2300 INPUT"   How many characters to a line";X:LS=X-4
  30. 2400 INPUT"   How many lines on a page";PS
  31. 2500 INPUT"   What name do you want to use";NM$
  32. 2600 INPUT"   What should the title read";TI$
  33. 2700 INPUT"   What should the other page headings read";HE$
  34. 2800 CLS:RETURN
  35. 4000 IFFL=1THENFL=0:TY$=TY$+ES$+"R":GOTO4200
  36. 4100 IFFL=0THENFL=1:TY$=TY$+ES$+"E"
  37. 4200 US=US+2:RETURN
  38. 5000 LI=LI+1:IFF=0THENLPRINTTY$:GOTO6900
  39. 5100 IFLI<>1THEN6000
  40. 5200 FORI=0TOLS+6:IFIMOD5=2THENPSET(I,0):PSET(I,PS+1)
  41. 5300 NEXT
  42. 5400 FORI=0TOPS+1:IFIMOD5=1THENPSET(1,I):PSET(LS+6,I)
  43. 5500 NEXT
  44. 6000 IF F2THENTY$=MID$(TY$,2)
  45. 6100 FORI=0TO4:I2=19+40*I:PRINT@I2,SPACE$(21)
  46. 6200 PRINT @I2,"";
  47. 6300 FORI3=1TO21:CH$=MID$(TY$,21*I+I3,1):IF CH$<>ES$ THEN PRINT CH$;:
  48. 6400 NEXT:NEXT
  49. 6450 I=3
  50. 6500 CH$=LEFT$(TY$,1):TY$=MID$(TY$,2)
  51. 6600 IFCH$<>" "THENPSET(I,LI)
  52. 6700 IFCH$=BS$ OR CH$=ES$THENI=I-2
  53. 6800 IFLEN(TY$)<>0THENI=I+1:GOTO 6500
  54. 6900 TY$="":RETURN
  55. 20000 TY$=NM$+"  37 Skyline Dr. Daly City  CA  94015":PH$="   (415)756-5557"
  56. 20050 IFX=>62THEN21000
  57. 20100 TY$="   "+TY$:GOSUB5000
  58. 20200 TY$=SPACE$(14)+PH$:GOSUB5000
  59. 20300 GOTO21100
  60. 21000 TY$=TY$+PH$:GOSUB5000
  61. 21100 GOSUB5000:GOSUB5000
  62. 21200 RETURN
  63.  
  64.